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KK CLUB NOTES >>> 


Houston Area Apple Users Group 
APPLE BARREL 
4331 Nenana Drive 
Houston, TX 77035 


The HOUSTON AREA. APPLE USERS GROUP is 
an Apple II user club, not affiliated 
with Apple, Inc., or with any retail 
computer store. HAAUG is a member of 
the International Apple Core and 
Supports its purposes and 
publications. General membership 
meetings are held on the second 
Wednesday of each month in the school 
cafeteria of St. Agnes Academy, 9000 
Bellaire Boulevard (just west of 
Gessner), and start at 6:30 p.m. An 
additional software swap is held the 
last Saturday of each month at the 
clubhouse of the Houston Amateur Radio 
Club, 7011 Lozier Street, west of the 
Astrodome. These Saturday meetings 
begin at 2:00 p.m. 


OFFICERS / EXECUTIVE BOARD 


President Bruce Barber 469-5805 
Vice President (vacant) 

Treasurer Ray Essig 497-7165 
Secretary James Odom 426-3970 


Software Lib. Dennis Cornwell774-0671 
Hardcopy Lib. Leslie Doest 472-5485 
Hardware Chair David Marchand 497-7366 


Business Uses Rudge Allen 622-3979 
Membership Lee Gilbreth 342-2685 
Newsletter Ed. Ed Seeger 723-6919 


eens ten--- 


MEMBERSHIP INFORMATION 


Dues are $18.00 per 12-month period 
for regular memberships, $6.00 for 
students through high school and where 
no adult member of the family is an 
Apple user. Please make checks 
Payable to “Houston Area Apple Users 
Group," and mail to Lee E. Gilbreth, 


Membership Chair, 3609 Glenmeadow, 
Rosenberg, TX 77471. This includes a 
subscription to APPLE BARREL, which is 
published nine times a year. 
Newsletter exchanges with similar 
clubs are invited. 


ooneeatan--- 


APPLE BARREL REPRINT POLICY 


Unless otherwise indicated within the 
Program or article, any material 
published herein may be reprinted 
WITHOUT PERMISSION by any non-profit 
Apple club, group or newsletter, 
PROVIDED proper credit is given to the 
APPLE BARREL and the article or 
Program author. 


oeesa tec 


SPECIAL INTEREST GROUPS 


Members who share a common interest 
are encouraged to form Special 
Interest Groups to more fully explore 
their areas. Meetings may be arranged 
by common consent of the group and 
will ordinarily have one member who 
serves to coordinate or convene the 
meetings. If you would like to start 
a group around any given interest, 
please contact one of the club 
officers. If you would like to be in 
touch with others who share one of the 
following interests with you, please 
phone the coordinator. 


Current groups are: 


1) BUSINESS APPLICATIONS 
Coordinated by Rudge Allen, 
622-3979 


2) PASCAL USERS 
Directory being assembled 
Pat McGee coordinating, 
663-6806 


3) MODEM USERS 
Directory being assembled 


Herb Crosby coordinating, 
497-1061 


4) HAM RADIO OPERATORS 
Coordinated by Ed Seeger, WB5PTW 
723-6919 


GOOD NEWS, BAD NEWS 


5) NEW MEMBERS 
Coordinated by Lee Gilbreth, 
342-2685 


6) EDUCATIONAL APPLICATIONS 
Coordinated by Darrell Kachilla, 
498-0186 


APPLE BULLETIN BOARD SYSTEM 


The Houston Area Apple Users Group 
Supports an ABBS evenings and : 
weekends, 6:00 pm through 8:30 am, and Reece wen 
all weekend long. Feel free to 
sign-on and place your want-ad, “T would be most grateful, Mies “Anderson, if 
meeting notice, request for help, You would just type my words, not process 
Aggie joke, etc. Any ASCII terminal, ¥ haa 
Apple computer or not, with suitable \ 

modem or coupler, will give you ABBS 

capability. Call: 


713/654-0759 


SYSOP is Rudge Allen, 622-3979. 


K<«< BARREL-ROLLING >>> 


Writing, editing, stapling, addressing and finally 
sorting your newsletter for bulk mailing is an 
ever-increasing job. HAAUG'sS membership is now 285 and 
continues to grow. APPLE BARREL itself has grown from a 
simple "news & notes" format to a significant non-profit 
forum for program and information exchange. Thanks to all 
who write for us, and to Sara Seeger and A. D. Smith, whose 
service as Production Assistants has kept the BARREL 
rolling month after month. 


<< DUE TO DUES BEING DUE..... >>> 


HAAUG has a number of members whose dues are in 
arrears, but who do not know it. It's not your fault! We 
have not been very good about keeping our members 
up-to-date on their expirations, and numerous issues of the 
APPLE BARREL have gone out 'way past renewal time. 


Thanks now to Chris Myers, our Mail Management (c) 
program has been modified to print your renewal date on the 
address label of the newsletter. Take a look on the last 
page mailing wrapper to see when your renewal is due. 
HAAUG will no longer carry you past your date. We must 
assume that if your renewal has not reached us before or 
during the 45-day period following expiration, that you 
wish to drop your membership. 


Dues for a 12-month period are $18.00, and bring you 
not only the APPLE BARREL, but software swap privileges, 
local dealer discounts (totaling several hundred dollars in 
1979-80), the Apple Bulletin Board System, hardcopy library 
borrowing rights, programs and speakers, technical advice, 
and a lot of fun in getting the most out of your Apple! 


Send your check for $18.00 to: 
Lee E. Gilbreth, Membership Chairman 
3609 Glenmeadow 
Rosenberg, TX 77471 


Make your check payable to "Houston Area Apple Users 
Group" and mark it for "renewal." 


<<< PASCAL TUTORIAL - Lesson 2. >>> 


Hello again! It's been a while since the first 
installment (February, 1980, vol. 3, no. 2) of the Pascal 
tutorial. In short, I hope to pick up where we left off. 
I would also like to note and correct an error in that 
issue. Programs zero through three (included in this 
issue) do not deal with data types as announced. Instead, 
they serve as very elementary examples of Pascal programs. 
Program four does deal with data types, which are the 
subject of this month's lesson. Also included are programs 
ten through thirteen, which expand on the looping 
constructs presented in lesson 1. Try to convert these 
programs to their BASIC counterparts. 


DATA TYPES 


What are "data types"? Many personal computer 
enthusiasts approach this subject with anxiety. They 
wonder, "Are 'data types' another one of those mysterious, 
hard-to-understand subjects from a computer scientist's 
most recent thesis paper?" The truth of the matter is most 
computer hobbyists have already played with data types 
unknowingly. Therefore, do not be intimidated when you 
learn that in order to use Pascal effectively, one needs to 
understand “data types". The understanding thas already 
progressed. Allow me to show you the data types of BASIC 
and some Pascal equivalents. 


First there is the "integer" data type, best known to 
Apple users in Integer BASIC. The more advanced Apple user 
will also recognize this as the % variable in Applesoft 
BASIC. Integers %n the Apple (or any machine) are whole 
numbers (ie., without a decimal or fractional part) with an 
optional plus or minus sign, Furthermore, "integers" on 
the Apple must always be less than or equal to +32767 and 
greater than or equal to -32768 (i.e., -32768 <= x <= 
+32767). Some examples of integers are 0, 32, -591, 
+32767. Multiplication, addition and subtraction behave as 
expected, but division of integers results in truncated 
whole parts. For example 34/3 = 11 in Integer BASIC. Try 
it! 


In Pascal, integer variables (in fact, all variables) 
must be "declared" before using them. The syntax for an 
integer “declaration” is : 


var COUNT,I:integer; 
SIZE: integer; 


The above "declaration" announces that the variables 
COUNT, I and SIZE are of the integer data type, just like 
the % variables of Applesoft. Using these variables we are 
now permitted to make assignments and comparisons. For 


instance: 


COUNT:=0; (*this is an assignment statement*) 


if I>4*COUNT then SIZE:=I div 9; 
(*notice the symbol 'div' represents integer division*) 
writeln(SIZE); 


Because of the "strong data typing rules" of Pascal, 
we are forbidden from ever making assignments such as 
follow: 


SIZE:=-3.9E10; 
2=4/3; (*"real" division*) 


The reason for the restriction is that SIZE and I are 
integer variables; whereas, -3.9E10 and 4/3 are "real" 
expressions. This brings us to the next data type. 


The second data type of BASIC is the "real" number 
data type. "Real" numbers are the ones you and I are 
probably most familiar with. They are also known as 
floating point numbers to some of us. For instance, the 
following are "real" numbers: 9, 4.5, -3.0, 8E10, 0.0059, 
0.0. "Real" numbers are complete numbers in the sense that 
they have both whole and fractional parts. Integers are a 
subset of real numbers. The range of magnitude for real 
numbers on the Apple computer is much larger than for 
integers (-1E38 to +1E38). Arithmetic with real numbers 
behaves as one would expect - division keeps the fractional 
part. 


Pascal also allows the use of real numbers (once they 
have been declared). Here are a few examples of both 
declaration and usage: 


var COUNT: integer; 

COST: real; 

X,Ysreal; 

COUNT:= 32; 

COST:= 4.95; 

COST:= COST*COUNT; 

COST:= COST + 45; 

X:= cos(30); Y:= sin (30); 

if X/3> X div 3 then writeln('fractional'); 


Notice the use of integers in real expressions. This 
relaxation of Pascal's strict typing rules is allowed in 
most implementations, because integers are considered a 
subset of reals. Pascal implementors allow other 
concessions as we shall see. 


Finally, there is the "string" data type of BASIC. 
Many (if not most) small computer owners are quite familiar 
with variables such as AB$ or K$. Programmers call these 
"string variables," because this is their data type. 
"Strings" are sequences of characters. In BASIC one 


represents a string by enclosing the sequence of characters 
in double quotation marks ("). Some examples of strings 
are: "HELLO, MY NAME IS JOHN", "ZAP", "G", ".", "5.6", "", 
Notice that the last example had nothing between the 
quotation marks. This is called a "null" or “empty” 
string. Null strings are said to be of length zero. A 
String with one character (eg. ".") has a length of one, 
and so on. Besides the characteristic of length, strings 
also have some elementary operations. Though we cannot 
add, multiply or divide strings as in ordinary arithmetic, 
we can concatenate, search for a substring and extract 
parts from a string. Thus in BASIC we use the expression 
"ABC"+"DEF" to concatenate two strings into "ABCDEF". 

Another construct is MID$("ABCDEF",2,3), which extracts 
"BCD" from the source string. These operations illustrate 
that the string data type has properties like any other 
data type. Strings have the property of being manipulated. 


Standard Pascal as defined by Jensen and Wirth in 
their "Pascal User Manual and Report" do define strings as 
a basic data type. Fortunately, the UCSD Pascal 
implementation does allow a string data type, but one must 
keep in mind that this is an extension to Pascal. Strings 
are implemented in UCSD Pascal as packed arrays of 
characters, which they are. 


In order to use the string data type one must declare 
them as always: 


var NAME:string; RALF:string(255); 


Furthermore, strings in Pascal are encloséd in single 
quotes rather than double, and unless specifically stated, 
the maximum length is set at 80. Using the syntax of the 
second declaration above, one can extend (or shorten) the 
length for a particular string variable to anything between 
one and 255. Examples of use follow: 


RALF:='The old maid'; writeln(RALF); NAME:=''''; (*single 
quotes!*) 


There also exist some special functions to 
concatenate, etc., but this will have to wait for another 
lesson, As noted, strings are packed arrays of characters, 
which are the next topic. 


Unfortunately, BASIC only has three data types. 
Pascal, on the other hand, offers a variety of other data 
types. One of these is the "character" data type. 
"Characters" are basic to most of us already, but we are 
used to seeing them as parts of strings. In Pascal, the 
char data type is as distinct and separate from a string as 
an integer is from a real. Character constants look like 
strings that consist of a single character. Whether or not 
constants such as "X" are treated as strings or as 
characters depends upon context. Some examples will help: 


var ADDRESS:string; 


YES, KETCHUP:char; 
KETCHUP:='X'; (*X is a char*) 
ADDRESS:='Y¥'; (*Y is a string*) 
if YES >='A' and YES <='Z' then writeln('letter'); 
(*"A' and 'Z' are characters*) 


To determine what data type a constant belongs to, ask 
yourself what type of expression is represented. If a 
character variable is involved, then chances are that the 
constants are characters. Here are some more examples. A 
few of these are illegal due to data type conflicts. Some 
are illegal because '+' means different things in Pascal. 


ADDRESS:=YES; (*illegal*) 
KETCHUP:="HELLO'; (*illegal*) 
YES:=ADDRESS(1); (*OK*) 
ADDRESS:='AB'+'BC'; (*illegal*) 


Why? 


Next time we will discuss the format of "programs" and 
"procedures". Also included will be more examples of how 
to use data types. Till then, good luck with Pascal! 


> 
> David C. Black 


SIMPLE MESSAGES AND MATH 


PROGRAM ZERO; PROGRAM FOUR; 
VAR R:REAL; 
BEGIN I: INTEGER; 
(*WHAT DO I DO?*) 
END. BEGIN 


R:=(14-16)/3; 
WRITELN('R=',R); 
WRITELN('TRUNC(R) = 


PROGRAM ONE; WRITELN (* ROUND (R) 
2 =TRUNC (100*R) ; 
BEGIN WRITELN('I = ',1) 


WRITELN('YOU SHOULD EASILY':2); END. 
WRITELN ('RECOGNIZE':16); 
WRITELN('THIS PROGRAM IN BASIC') 

END. 


PROGRAM TWO; 


BEGIN 
WRITE ("HOUSTON IS THE NATIONS '); 
WRITE (7-4) ; 
WRITELN('RD LARGEST CITY'); 

END. 


* ,TRUNC(R) 
* ,ROUND (R) 


3 
: 


PROGRAM 10; 
VAR I: INTEGER; 


BEGIN 

I:=1; 

REPEAT 
WRITELN(I); 
I:=I+l 

UNTIL I > 10; 


WRITELN('FINISH I 


END. 


PROGRAM ELEVEN; 
VAR I: INTEGER; 


BEGIN 
I:=1l; 


WHILE I <= 10 DO BEGIN 
WRITE('*"'); I:=I+1 


END. 
WRITELN (TI) 
END. 


PROGRAM TWELVE; 
VAR I: INTEGER; 


BEGIN 
2211 
REPEAT 
WRITE ('*'); 
=I+2 
UNTIL I > 10; 
WRITELN (TI) 
END. 


PROGRAM THIRTEEN; 


VAR I: INTEGER; 


DONE: BOOLEAN; 


BEGIN 
I:=32; 
REPEAT 


THE H.A.A.U.G. 


i hs 


Taieart nnn a aH IMU , 
tin 


PRESEHTS 


DONE:=NOT(I < 21 OR I > 22);WRITE('*'); 
I:=I - ((1I-21) DIV ABS (I-21)) * I DIV 2. 


UNTIL DONE; 
WRITELN (I) 
END. 
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<<< WANT AND DON'T WANT ADS >>> 


LETTER-QUALITY PRINTER/TERMINAL: $1300. This is the 
Anderson-Jacobson IBM Selectric machine that has printed 
your APPLE BARREL for well over a year now! It is an I/O 
terminal as well as a printer. Use it as a quality 
Selectric typewriter offline, or for beautiful hardcopy 
online. Comes configured for a serial interface and will 
run nicely off the Apple Communications Card with a small 
handshaking modification. Includes a tractor feed 
mechanism for fanfold paper; three Selectric typeballs; 
operating manual. Delivered within 100 miles of Houston. 
I will arrange a demonstration for you in my home at your 
convenience. (Keep your newsletter coming and help Ed 
Seeger pay for his new SpinWriter!) 723-6919 evenings 
after August 25th. 


ALF MUSIC BOARDS: $230 each, two for $425 with 
complete users manual, technical manual, special timing 
board, and several disks of very good stereo music. These 
synthesizer boards plug into your peripheral slots and play 
through your stereo amp. You've got to hear the things to 
believe your Apple's doing it! No comparison to other 
boards now on the shelves. Remarkable hires display of 
measures, key signature, treble and bass clefs, etc. upon 
entry of notes. See review articles in Creative Computing, 
June '79, p.102 and June '80, p.74. These two boards will 
also interface directly with the Alpha-Syntauri keyboard 
system just introduced at NCC! I will arrange a 
demonstration at your convenience for seriously interested 
buyers. Ed Seeger, 723-6919 evenings after August 25th. 


WANTED: ONE GOOD DEAL ON APPLESOFT ROM CARD. Call 
Charlie Anderson, 688-2105 day or night. 


I AM INTERESTED IN POSSIBLY MARKETING YOUR SOFTWARE. 
I wrote "Tuesday Night Football" and have dealers in 10 
states. If you have developed a distinctive games program, 
polished or unpolished, I would like to talk about it with 
you. Charlie Anderson Night or day, 688-2105. 


IS ANYONE INTERESTED in a 64-channel P-I-O board and 
buffer board for same? Contact Martin Edelstein, 729-4199 


IS ANYONE INTERESTED in play testing computerized 
wargames similar to Panzer Blitz or Kriegspiel? Call 
Martin Edelstein, 729-4199, 


SELL APPLE II+ 48K with Disk II and controller card. 
Al Ashmore, 492-2002 evenings. 


Meador's excellent series on 
originally publ 
Newsletter." 
booklet on Apple DOS, 


Comments, a : 
him at 1401 Hillcrest Drive, Arlington, 


K<«< 


We continue in this issue 


ished in the 
L 


errors noted 


DOS Disassembly 
by Lee Meador 


This is the third installment of the assembly listing 
of the Apple 11 DOS 3.2. This, as well as, last issue’s 
pages are taken from the first edition of the Wozpak 
put out by Apple Pugetsound Program Library Ex- 
change. The same pages were also sent to me in a not 
so good copy by the man an the Apple Hot Line. 
They are copies of the original listing for the RWTS 
subroutine. This month’s part is that portion that 
does the initialization of a new diskette. Next mon- 


DOS 3.2 DISASSEMBLY 
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>>> 


our fifth installment of Lee 


the Disk Operating System, as 
"Fort Worth Apple Users Group 
ee is thinking of preparing a technical 
with these studies as the core. 
and suggestions can be directed to 


TX 76010. 


th’s installment will be the six routines that RWTS 
calls. The commented disassembly is finished and 1 
planned to put them in for this month but there isn’t 
enough room. | also have finished the work on an 
explaination of how the electronics on the Disk In- 
terface card work. That would include the P6 ROM, 
the shift register, the 6 bit latch, and a few notes 
about the differences in the BASIC and Pascal P6 
ROMS. 

If you have any questions or comments please 
contact me at the address on the back cover. I’ll be 
glad to take some appropriate action. These articles 
will eventually be available in book form. 


410 nenecocceennnennseenseneereee 
ails * 
aize * 
aig DISK II: . 
= 414 * THIRTEEN SECTOR FORMATTER * % i Ese 
ais « * 
416 * COPYRIGHT 1978 BY: . 
RetieG 417 © 7" APPLE COMPUTER INC. @ 
418 « . 
age R._WIOOINTON . 
420 * 
421 eeeenererenrennnereerennees, 


eres 


FILLCNT EQU 


425 SCTR —QU  FILLCNT 1 
426 At equ 
427 TRKCNT EGU 
428 EXCNT EGU 
429 YCNT Eau 


DISC SYSTEM FORMATTER EQUATES 

$4B i GENERAL COUNTER+ 

SECTOR NUMBER. 

4A 1A DUMMY LOCATION FOR TIMING PURPOSES. 
$41 i MY SPECIAL TRACK COUNTER aie 
$46 1 ANOTHER GENERAL COUNTER. 

$47 )NYBBLE COUNTER 


January-February 1980 
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FWAUG Newsletter 


CODE EXPLANATION & FLOWCHART 


‘447-*—— BE’ 80 NYBBLES OF “AUTO SYNC INFORMATION. 


{sea . 


SET AUTO SYNC COUNT=80 , 
THIS GAYS THAT IN FRONT OF EVERY DATA SECTOR THERE wae 


449 #9. MOVE OUT TO TRACK O : 
i > 450-# = 
: 431 * 4. WRITE THIS TRACK SEVERAL TIMES OVER WITH SELF- : 
. 452 * SYNC _NYBBLES “ 
« 453°" $$$ a 
u 454 * 5. FORMAT TRACK: . 
a 455° . 
po 4S HA BET “GECTOR COUNT=0————- 
457 © B. WRITE (AUTO SYNC COUNT) NYBBLES OF SELF-SYNC. < 
458 * C. WRITE ADDRESS MARKS 
"459-8 DOWRITE VOLUME NUMBER,-“TRACK NUMBER, ~ SECTOR ——"~ ~~~ > 
460 * NUMBER, AND CHECKSUM BYTES. 
461 * E. WRITE CLOSING ADDRESS MARK. 
~462 ¥— FO-WRITE’ 429 NYBBLES OF “SELF-BYNC-— NOTE THAT——— - 


463 + 1S THE SAME NUMBER OF NORMAL NYBBLES 
4o4e AS ARE WRITTEN IN A SECTOR, DATA PORTION, ® 
465 # = “BUT SINCE THE DATA MARKS ARE NOT THERES — 
| Abb * THE SECTOR CANNOT BE READ UNTIL IT 
467 @ HAS BEEN WRITTEN TO. THIS IS EASIER 
468 # FOR" THE FORMATTER;—AND “AN ADDED FEATURE——————" 
469 # TO THE USER. 
470 # ©. SECTOR COUNT#(SECTOR COUNT+7) MOD 13 hy a 
~a71-# “THIS “INTER LEAVES THE SECTORS IN THE =< 
a72* FOLLOWING ORDER: 
473 * o 10 7.4 1 11 8 S$ 2 12 9 6 3 0 
——— ——" 474 # ——~ THIS _IS"TO“ALLOW PROCESSING TIME ©°—-—-———— = 
47s + BETWEEN READING ‘CONSECUTIVE’ SECTORS. 
476 * 
i 77 477 #9 IF SECTOR NUMBEROO, GO TO STEP AD © =*-—— 
a7B « 
477 * 
“480 #-67"READ THE NEXT ADDRESS FIELD. er ae age ee 
481 * 7. IF NOT SECTOR ZERO, WE HAVE WRITTEN 
482 + TOO MUCH INFORMATION ON THIS. TRACK. -__ THEREFORE, 
——_—_ oo 483 HO SYNC COUNT=SYNC COUNT-1°—— "~~ aged 
404 * IF NOT ON TRACK ZERO, MOVE OUT A TRACK 
aes + AND LOCATE ITS SECTOR ZERO, THEN MOVE BACK 
— 7 488 “IN TO CURRENT TRACK. THIS WILL ALLOW ~* 
487 + GOING IN A TRACK AND HAVING SECTOR ZERO 
4e8 « AVAILABLE IMMEDIATELY, WHEN DOING A READ 
Sara aere COVERING SEVERAL TRACKS.~~ "~"7 "77° fipoaase ote) 
NOW, LOOP BACK TO STEP 5, 
erp = 472 + * 8° IF SECTOR ZERO, WE HAVE FORMATTED THIS = = 


Teark CNRAFCTLY. MOVE IN A TRACK AND FORMAT THE NEXT 


13 


6 FWAUG Newsletter January-February 1980 
: 498 © MOTOR ON & FILL TRACK WITH SYNC 

499 6 : 
500 * ENTER FORMATTER HERE: rs 
501 « 

BEPC AY BO S02 DSKFORM LDA = #880 100 TO TRACK 00 a 

3E9E BD 78 04 503 STA CURTRK 1 SET UP WHERE I AM 

-3EA1 A900 504 LDA #800 

SEA3 85 41 505 STA = TRACNT J INIT MY COUNTER ~~~ ~— — 

BEAS 20 1£ 3A 506 YSR = SEEKABS ‘ 
507 « 


‘——"—— $08" # MOTOR RUNNING;~ AND ON TRACK ee , 
509 # NOW FORMAT THIS TRACK: 
S10 « 
DEAS AP AA" 511° DSKF2— LDA— #saa™ sSTORE CONSTANT IN ZERO PAGE FOR TIMING 
BEAA 85 4A 512 STA AA 
SEAC AO SO 513 LDY #$50 


“ZEAE 84-47-3514" TRAFRM— STY— “YCNT s INITIALLY 80 NYBBLES OF SELF-SYNC BEFORE 

« BEBO AQ 27 515 LDA #$27 J WRITE TRACK FULLY WITH 

» BEB2 85 4B 516 STA FILUCNT i SELF-SYNC CODES 

‘7 BEB4 BD BD CO S17— LDA— QéH. x 2 . 

» SEB7 BD BE CO 518 LDA G7L.X 1 GET READY... 

u SEBA AQ FF 519 LDA @SFF J WRITING DATA “ 

4” BEBC 9D 8F CO S20 ~———~— BTA G7H. X~) START _ WRITING ———— 
SEBF DD 8C CO 521 cmp @éL. X 
BEC2 24 GO S22 BIT © s+ DELAY 3 CYCLES TO FALL INTO LOOP 


—ZEC4 88———— 523 WRTRK™ DEY") SECTION 1S TIMING-SENSITIVE, 


SECS FO OF 524 BEG = NXTPRT 11.£., NO BRANCHES CAN CROSS ¥ 
3EC7 48 525 PHA 1 PAGE BOUNDARIES. . 
‘ECB 68-———~ 526" PLA" NOW WAIT 27 MICROSECONDS BETWEEN ay 
3EC9? EA 527 NOP -) WRITES TO GENERATE SELF-SYNC. 

3ECA 48 528 CONSYNC PHA 

3ECB 68 ———~ 529 ~ PLA = SS 
BECC EA 530 NOP 

SECD EA 531. ‘NOP 


‘SECE 9D BD CO S32-——_ BTA” G6H. X PF WRITE NEXT NYBBLE OF SYNC—————— 
SEDI DD eC CO 5330. cMP GOL. xX 

3ED4 BO EE 534 Bcs WRTRK + ALWAYS TAKEN. 
WBEDS C4-4B—S3S_NXTPRT~ DEC— FILLCNT"» TRACK DONE? 
3ED8 DO FO 536 BNE CONSYNC 
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January-February 1980 FWAUG Newsletter 
338 ¢ SECTOR-BY-BECTOR FORMAT 
539 * 
540 * TRACK 1S NOW FILLED WITH SELF SYNC. 
541 # NOW WRITE THE FORMAT ON IT. 
5424 = * 
JEDA A4 47 543 Lpy YCNT 1GET NUMBER OF NYBBLES TO GO BEFORE ADI 
SEDC EA 544 NOP 
.73EDD EA “545 NOP? Fee ee oot becaacouss 
BEDE DO 06 546 RGTIM BNE WRITSF , ALWAYS TAKEN. - 
. SEEO 48 547 FRMWSYNC PHA sWRITE SELF-SYNC BEFORE ‘ 
~ BEEr6e— 548 PLA—TTHIS' SECTOR. ssn 4 
SEE2 48 549 WRIT2 PHA 
SEES 68 550 PLA 
; "351° ZERO EGU— 00007) FOR GARY’ BUG ~~ ~~ = 
aEE4.C1 00-552 CMP © (ZERO, X) +6 CYCLES DELAY 
; BEES EA 553 WRITSF NOP ‘ 
—3EE7-9D @D CO 554 WRITS—BTA— GSH; XT WRITE NEXT NYBBLE SOOO 
! QEEA DD BC CO 555 CMP © G&L, X 1 OF AUTO SYNC 
SEED 88 558 DEY 


BNE—“FRMWSYNC ST ee) a eee 

LDA  #6D5 i; START ADDRESS MARKS 

JSR WNIBLA : 
LDA" SAA’ = Sete set ae” 
SEF7 20 CB 3F 541 JSR WNIBLB2 zi zs 
562 LDA #685 

“BEFC 20 CB SF “58377 ‘JSR — WNIBLB2 
EFF AS 2F 564 LDA VOLUME 

3FO1 20 BB 3F 565 JSR WBYTE s WRITE VOLUME NUMBER, . 
—SF04 “AS “41 ‘566 SLATS IRKONE Se 


3F06 20 BB OF S67 JSR WBYTE » TRACK NUMBER. 
BFO? AS 4B 568 LDA __ SCTR 

: 3rop 20° BB GF S&9—————JSR-— WBYTE 1 SECTOR NUMBER 

» SFOE AS 2F. 570 LDA VOLUME 

3 3F10 43 41571 EOR —TRKCNT , 

[BF12 45" 48-572" EOR—BCTR—— a a 

x, SF14 48 373 PHA 

2! SFIS 4A 574 Ler 

.-3F16-09-4a— 375 ORA—AA 

2 BF18 9D BD CO 576 STA G6H, X 1 AND CHECKSUM. 

3» 3F1B DD @C CO 577 CMP GéL. x ' itty 

3SFIE-68 3787 “PLA =, Sate S 

ul SFIF OF AA 579 ORA = #SAA e 

+ BF@1 20 CA OF 580 JSR WNIBLA ss 

tL Sp24-a9 DE——S81-—— “LDA #SDE"s CLOSE ADDRESS MARKB ——— oO 
BF26 20 CB SF Sez JSR WNIBLB2 

« 3F29 A9 AA 583 LDA #SAA 

COSF2B 2O"CR-aF 584° ‘ISR —WNIBLB2———"—---— Ne 

+| F2E Ag ED 585 LDA #8EB 

«| 3F30 20 CB OF S86 JSR WNIBLB2 

Leas -ag- FF S87———LDA"—" FF) CONTINUE WRITING SYNC ene ee 

© 3F35 20 CB OF 588 JSR WNIBLB2 

« 3F38 AO 02 589 LDY #802 1 COUNT SELF-SYNC THROUGH WHERE DATA 

-aFSA’ @4-4E-—— 5907 BTY-—EXCNT “i TS SUPPOSED TO GD. SINCE ~~ 7 

v| BFC AO AD = 591 LDY #sAD THE DATA SECTION WILL BE ILLEQALLY 
BFSE DO 06 —592 BNE INTOIT i FORMATTED, IT CANNOT BE READ 
593 ® UNTIL IT HAS BEEN WRITTEN WITH A NORMAL WRITE.” ~~ 

* 594 © ONCE AGAIN, NO BRANCHES IN THIS SECTION CAN CROSS 

. 595 * ANY PACE BOUNDARIES. NOW WRITE THE FAKE SECTOR: 

oRF40 BE——-—'"59S FAKESCT DEY) COUNT NYBBLES IN SECTOR. ~~" ~~ 

+, 3F41 FOOD = 597 BEQ NXTTRY 1 THIS GROUP DONE? 

+ 3F43 48 598 PHA 123 MICRO-SECONDS PER NYBBLE 


orn 599 PLA 


tan wine 
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3F46 48 601 INTOIT PHA 

3F47 68 602 PLA 

3F4B8 YD BD CO 603 STA Q6H. X 

SF4B DD BC CO 604 CMP GL. Xx 

SF4E BO FO ©6605 ~~" BCS ~FAKESCT ) ALWAYS TAKEN. Pe 
SFSO C& 46 606 NXTTRY DEC EXCNT 

3FS52 DO F2 607 BNE INTOIT 

SFS4 A4 47 608 ~~ ~~ LDbY YCNT + READY FOR LOOP TO SYNCER. 
3FS6 18 609 cue 

3F57 2400 610 BIT 0 

3FS9 9D BD CO 411 “STA Q6H; x Pe 
BFSC BD 8C CO 612 LDA @éL. x 

SFSF AS 4B 613 LDA SCTR +NEXT SECTOR NUMBER 

SF61 69 OA ~ 614°" ADE’ SOA IN INTERLEAVE FASHION, ~~ 
3F63 85 4B 615 STA SCTR 

3F6S EF OC 616 sBc #80C SECTOR 14? IF &O, DI 

“3F4&7 FO OA~——"617—— BEQ——_ TRKDON) ELSE; LOOP BACK. 

3F69 BO O1 618 BCS CHNGIT +DO INTERLACE! 

SF6B 2C 619 HEX 2C 1 SKIP OVER NEXT STA... 

SF6C 85 4B-—— 620 CHNCIT STA- SCTR 1 UPDATED SECTOR NUMBER ———— 
SF6E AP FF 621 LDA #SFF LOOP AGAIN 

3F70 4C E7 3E 622 JMP WRIT3 + ALWAYS TAKEN 


FWAUG 


Gr 
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* i 624 6 CHECK TRACK ROUTINE 
3F73 48 625 TRKDON PHA ALLOW WRITING OF ONE EXTRA NYBBLE 
3F74 68 626 PLA 
BF75 A4 47 627 LDY YCNT * 
777 BD 8D CO 628 LDA G6H, X + SENSE WRITE PROTECT a5, as 
3F7A BD BE CO 629 LDA G7L.X 1GO INTO READ MODE 
3F7D 30 34 630 BMI DRIVERR + 1F WRITE-PROTECTED. 
. SF7F 88 631" DEY ~ “i; DELAY TEST -SYNC PERIOD.” = Fi 
3F80 48 632 WLOOP PHA 1 DELAY 26 MICROSECONDS EACH LOOP 
3Fa1l 68 633 PLA . 
—3Fe2° EA -—"~ 634 —— —— NOP Cer ge ae 
. 3FB3 EA 635 NOP 
3F84 24 00 636 BIT ° 
“BF 86" 48 637 a x ea acer 6 
n GFG7 68 638 PLA a 
3Fee 68 639 DEY 
‘8? DO F=—— &80———"*" BNE —" WLOOP~) LOOP BACK ~ ena ae ee P 
Hl SFB 20 6* 39 641 JSR RDADR ;READ NEXT ADDRESS FIELD. r 
u SFGE BO 04 642 BcsS NOGOOD 1 IF CARRY IS SET. BAD READ 
nu 3F9O AS 2D7——~643°——— —" LDA~ SECT 1 SECTOR 07 aE) eG pee eae 
3F92 FO OA 644 BEG ITSGOOD 1. IF SO, WORLD IS PEACHY-KEEN. 
uw BF94 A4 47 645 NOGOOD LDY YCNT 1s ELSE, LOWER TEST SYNC COUNT BY 1. « 
‘—SF96 88-646 DEY F' AND TRY TO FORMAT TRACK AGAIN.—~-—————— 
3F97 CO 10 647 cPY #810 sMUST HAVE AT LEAST 16 NYBBLES OF TEST Pv 
. 3F99 90 18 o48 BCC DRIVERR 1 IF NOT. BAD DRIVE. o 
. SF9B 4C AE SE 649°-——~—— UMP TRKFRM 1 START ‘AGAIN © 
SF9E E6 41 650 ITSODOD INC = TRKCNT i MOVE IN AND FORMAT NEXT ‘ 
SFAO AS 41 651 LDA TRKCNT 1 TRACK. - “ 
FA2 CF 23-—— 652 — CMP" #823 -10N TRACK 357 —"'—"- = —— 
“WFAA BO12 - 653 2. | BCS DONEDSK 
. SFAG OA 654 ASL 1 PREPARE FOR ‘SEEK’ ROUTINE. 
~BFA7 20 1E GA'655"—— ——~ USR~ ~ SEEKABS 1» SEEK ABSOLUTELY PHASE @N 
+ SFAA A4 47 656 upy YCNT 1 FOR NEXT TRACK ns 
3 SFAC CB 657 INY 
x7 @FAD Ca———— ase — “INY as =, 


SFAE 64 47- 659 STY YCNT 


BFBO 4C AE 3E 640 MP TRKFRM 
«GFB3-A 40-———SB1 DRIVERR LDA #$40~) INDICATE DRIVE ERROR 
« SFBS 4C 29 SE 662 ymP —-HNDLERR 
« 3FBB 4C 27 3E 663 DONEDSK UMP ALLDONE s FINISHED! NO ERRORS. Z 
pf SFBB 48 864 WBYTE =" PHA TIGHT TIMING ROUTINE.” NO BRANCHES giro oaycacen. 
665 LSR ALLOWED TO CROSS PAGE BOUNDARIES. 
666 ORA AA SUSE A comreue ZERO rage BA PA 


SF BF “9D BD" CO~647 — STA QHi X'— Were Hose cp rain 7 cee 
BFC2 DD BC CO 468 CHP QéL, x oe eiceeng inicio, 

« 3FCS 68 669 PLA 

oGFCb "C1 00——670-———— _ CMP — (2ERO, x) - pean sit 
SFCB OF AA 671 GRA #SAA ——— Bil e10 1010 ) ome toe: 

+L Seca EA" 672 WNIBLA NOP 
FCB- 48 “77a WNT BBQ PHA Sr a 

: BFCC 68 674 PLA 

4 _SFCD EA 675 WNIBLC NOP . 

«[ BFCE 9D BD CO~676-WRNIBL ~STA™~ Q6H.x eS a a 

; 3FD1 DD BC CO 677 CMP GéL, x : 
3FD4 60 4678 RTS 


‘ 
e 
» ~~ END ASSEMBLY --- 


Go 
+! TOTAL ERRORS: 00 
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HAAUG 
AppleCase purchase--July/August 1980 
ORDER FORM 


NAME: PHONE: (H) (w) 


QTY ITEM PRICE EXTENDED PRICE 
___._ AP101S- Apple w/1 disk $85.00 
___ AP102D- Apple w/2 disks $90.00 
___ AP103M- Apple w/2 disks & monitor $95.00 
__ OTHER: yomre 
OTHER: 


TOTAL DUE WITH ORDER---------------------- 
These prices include $5.00 per item to cover freight charges. 
Actual freight charges will be divided among the total items and any refund 
or shortage due upon delivery. 


Please make checks payable to LARRY BAUMANN. 


Purchase co-ordinator is: Larry Baumann, 11711 Bandlon, Houston, Texas 77072 
Phone: 498-3433(home) 661-2053 X244 (office) 


HAAUG AppleCase purchase-- July/August 1980 RECEIPT 
RECEIVED FROM: BY: CASH__ CHECK# AMOUNT $ 
DATE: 


Larry Baumann 
(H) 498-3433 
(0) 661-2053 xX244 
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HAAUG MEMBERSHIP SURVEY 


1) (_) 
First Name M.T. Last Name A.C. Home Phone # 
Street Address APT # City State Zip 
(_) 
Occupation Company Name A.C. Work Phone # 
Business Mailing Address Ste. City State Zip 
I PREFER MAIL TO: BUSINESS RESIDENCE (___] 
Source # Micronet # 


2) Special Interest (Please check areas of most interest to you): 


Games/Puzzles = New Languages 
Science/Engineering ea Hardware st, 
Business Applications as Programming 5 
Source/Micronet Other 


How do you use your Apple? (Answer approximate percentages): 
\ 
Games % Business % Word Processing 


ae 


Source/Micronet % 
3) Help is need in the following areas. Please check where you would help if called: 


a) Writing Articles For Apple 
Barrel 

b) Mailing Apple Barrel 
(collating, stapling) 

c) Writing Programs For Apple 
Library 

d) Evaluating Programs 

e) Maintaining Program 
Library 

f) Help Run Program Exchange 

g) Bring Apple to Program Exch. 


Maintaining Hardcopy Library 
Putting Directory Together 
Helping on Membership 
Membership Orientation 
Hardware Projects 

Sale of Discount Merchandise 
Office Assistance 

Facilities Coordinator 
Special Projects 

Other 


moves soxKUAS 


ties 4 


4) What else? Any feedback you'd like to give? 


THANK YOU ! 2! 


(PLEASE STAPLE HERE) 


(FOLD HERE) 


Postage 


HAAUG SURVEY 

% DENNIS CORNWELL 
7981 KENDALIA 
HOUSTON, TEXAS 77036 


(FOLD THIS FLAP IN FIRST) 
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<< JUST IN CASE >>> 


You will find in this issue a good offer on carrying 
cases for the Apple. Larry Baumann is once again 
coordinating these purchases. Many members of the club 
already took advantage of the discount offer back in 
January and have been pleased. 


It has been asked, on the other hand, if the cases 
from Computer Case Company of Columbus, Ohio, are 
flightworthy. They are not. They are not built to be 
handled by the airlines and jammed into the baggage boot, 
although for easy carrying and transportation in the trunk 
or back seat of a car they are just the thing. 


David Phipps, a member of HAAUG, is custom building a 
VERY tough case that will sneer at the monkeys who bust 
luggage for American. For instance, an entire recording 
studio will go in Dave's cases to Amsterdam by KLM this 
August. Ed Seeger, who is making the trip with this 
equipment, says a troupe of dancing bears could perform on 
these cases and not so much as scratch them, let alone maul 
them! If you need to fly with your Apple, give Dave a call 
at 991-2324 to talk price and delivery. 


HAAUG MEMBERSHIP SURVEY 


Attached within this issue of the Apple Barrel is our first membership 
survey. The purpose of the survey is to accomplish the following ob- 
jectives: 


1) To update our information such as addresses, 
phone numbers, etc. (Including Source or 
Micronet) 


2) To find your special interests in using your 
Apple. (This will help in designing meetings 
and articles.) 


3) To create a force of volunteers for special areas 
in which we need help. 


4) To get any other input that you wish to give. 


Please give special attention to the Volunteer section (Sec. 3). This 
is an opportunity to strengthen our club and its activities, and get 
more people "involved." The survey will be most valuable if everyone 
responds. Won't you take a few minutes now to complete it, staple it 
closed, and mail it? Thanks for your help! (Results will be published 
soon. ) 
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